 A            ;RECOVER ALL EXISTED CHARACTER ?
;  JR Z,YDYN20     ;YES,THEN JUMP
;  CALL GETCWO     ;GET CHARACTER WORK OFFSET ADDRESS
   INC HL
   PUSH HL      ;#1
  INC HL
   LD D,0
   LD E,(HL)       ;GET MAX HIT POINT

  LD  HL,15
  CALL  KAKE            ;HL=HL*DE
  LD  DE,100
  CALL  WARI            ;DE=HL/DE
                        ;DE=15% OF MAX HIT POINT
   POP HL       ;#1
   LD A,(HL)       ;GET NOW HIT POINT
   INC HL
   LD B,(HL)       ;GET MAX HIT POINT
   ADD A,E
   CP B            ;NOW H.P > MAX H.P ?
   JR C,YDYN21     ;NO,THEN JUMP
   LD A,B
YDYN21:
   DEC HL
   LD (HL),A
SI:
   POP HL
  LD  DE,40H
  ADD HL,DE
  POP BC
  }
;  JR YDYL20
YDYN20:
   LD HL,STAY_DAY
   DEC (HL)
   JP NZ,YDYL21

   LD B,4
WAIT_Y